(pcomplete-entries): Don't set `above-cutoff' to a value unless

pcomplete-cycle-cutoff-length is non-nil.

diff --git a/lisp/pcomplete.el b/lisp/pcomplete.el
index 9a1403cc104e3ee4210390e0c7e18d39afc009a7..cde0f07064f41687725669469b22cac61f0588ce 100644 (file)
--- a/lisp/pcomplete.el
+++ b/lisp/pcomplete.el
@@ -735,8 +735,9 @@ component, DEFAULT-DIRECTORY is used as the basis for completion."
                             (string-match pcomplete-dir-ignore file))
                      (and pcomplete-file-ignore
                           (string-match pcomplete-file-ignore file))))))))
-      (setq above-cutoff (> (length completions)
-                           pcomplete-cycle-cutoff-length))
+      (setq above-cutoff (and pcomplete-cycle-cutoff-length
+                            (> (length completions)
+                               pcomplete-cycle-cutoff-length)))
       (sort completions
            (function
             (lambda (l r)